home *** CD-ROM | disk | FTP | other *** search
/ Win '95 Giga Pack / Win95 Giga Pack (Maple Media) (1997).iso / UTILITY / WNBT32 / DEFAULT.WB_ < prev    next >
Text File  |  1996-01-08  |  929b  |  30 lines
  1. ; DEFAULT.WBT
  2. ; Whne WinBatch is executed without any parameters, it attempts to locate
  3. ; and execute this DEFAULT.WBT file.
  4.  
  5. ActWin=WinGetActive()                  ;Get currently active Window
  6. VerWB=Version()                        ;Get Version numbers for title
  7. VerDLL=VersionDLL()
  8.  
  9. xyzzyTitle=strcat("WinBatch ",VerWB,"   DLL ",VerDll)
  10.  
  11. while @TRUE
  12.    BoxShut()
  13.    WinTitle("","WinBatch")
  14.    xyzzywbtfile=strlower(AskFileName(xyzzyTitle,"","WinBatch (*.WBT)|*.WBT|","*.WBT",1))
  15.    if xyzzywbtfile!=""
  16.       if strcat(FileRoot(xyzzywbtfile),".",FileExtension(xyzzywbtfile))=="default.wbt"
  17.          Message("Already running default.wbt","Try looking in the samples directory for sample wbt scripts to run.")
  18.       else
  19.          call(xyzzywbtfile,"")
  20.       endif
  21.    else 
  22.       break
  23.    endif
  24. endwhile
  25. exit
  26.  
  27. :cancel
  28. display(1,"Exiting","Default.wbt")
  29. exit                                    ;Bye Bye
  30.